10 PRINTCHR$(147)CHR$(28):POKE53280,1:POKE53281,1
20 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
25 POKE54277,190:POKE54278,255:POKE54282,190
30 POKE54285,255:POKE54276,65:POKE54283,65:POKE54275,8:POKE54282,8
40 F=1:G=1.5:L=10:H=10:I=H*G:Z=54272:Y=54273:ZZ=54279:YY=54280:V=1398:C=54272
50 FORQ=1TO9:PRINT:NEXT:PRINTTAB(9)"PLEASE TURN UP VOLUME"
55 PRINT:PRINTTAB(5)"HIT RUN/STOP-RESTORE TO STOP"
60 FORT=1TO2000:NEXT:PRINTCHR$(147)
100 A=INT(5*RND(1)):B=INT(13*RND(1))+2
105 FORN=1TOA:POKEV,67:POKEV+C,B
108 V=V+1:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H+F:I=I+F:NEXT
110 IFH>243THENH=10:I=H*G
120 POKEV,73:POKEV+C,B:V=V+40:X=INT(2*RND(1))+1:ONXGOTO700,800
200 A=INT(5*RND(1)):B=INT(13*RND(1))+2
205 FORN=1TOA:POKEV,67:POKEV+C,B
208 V=V+1:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H+F:I=I+F:NEXT
210 IFH>243THENH=10:I=H*G
220 POKEV,75:POKEV+C,B:V=V-40:X=INT(2*RND(1))+1:ONXGOTO500,600
300 A=INT(5*RND(1)):B=INT(13*RND(1))+2
305 FORN=1TOA:POKEV,67:POKEV+C,B
308 V=V-1:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H-F:I=I-F:NEXT
310 IFH<12THENH=10:I=H*G
320 POKEV,85:POKEV+C,B:V=V+40:X=INT(2*RND(1))+1:ONXGOTO700,800
400 A=INT(5*RND(1)):B=INT(13*RND(1))+2
405 FORN=1TOA:POKEV,67:POKEV+C,B
408 V=V-1:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H-F:I=I-F:NEXT
410 IFH<12THENH=10:I=H*G
420 POKEV,74:POKEV+C,B:V=V-40:X=INT(2*RND(1))+1:ONXGOTO500,600
500 A=INT(5*RND(1)):B=INT(13*RND(1))+2
505 FORN=1TOA:POKEV,66:POKEV+C,B
508 V=V-40:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H+F:I=I+F:NEXT
510 IFH>243THENH=10:I=H*G
515 POKEV,73:POKEV+C,B:V=V-1:IFV<1384THEN300
520 X=INT(2*RND(1))+1:ONXGOTO300,400
600 A=INT(5*RND(1)):B=INT(13*RND(1))+2
605 FORN=1TOA:POKEV,66:POKEV+C,B
608 V=V-40:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H+F:I=I+F:NEXT
610 IFH>243THENH=10:I=H*G
615 POKEV,85:POKEV+C,B:V=V+1:IFV<1384THEN100
620 X=INT(2*RND(1))+1:ONXGOTO100,200
700 A=INT(5*RND(1)):B=INT(13*RND(1))+2
705 FORN=1TOA:POKEV,66:POKEV+C,B
708 V=V+40:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H-F:I=I-F:NEXT
710 IFH<12THENH=10:I=H*G
715 POKEV,75:POKEV+C,B:V=V-1:IFV>1683THEN400
720 X=INT(2*RND(1))+1:ONXGOTO300,400
800 A=INT(5*RND(1)):B=INT(13*RND(1))+2
805 FORN=1TOA:POKEV,66:POKEV+C,B
808 V=V+40:POKEY,H:POKEZ,L:POKEYY,I:POKEZZ,L:H=H-F:I=I-F:NEXT
810 IFH<12THENH=10:I=H*G
815 POKEV,74:POKEV+C,B:V=V+1:IFV>1683THEN200
820 X=INT(2*RND(1))+1:ONXGOTO100,200